home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / gnu / smaltalk.lha / smalltalk-1.1.1 / stix / Rectangle.st < prev    next >
Text File  |  1991-09-13  |  12KB  |  376 lines
  1. "========================================================================
  2. |   Rectangle Class
  3.  ========================================================================"
  4.  
  5. "======================================================================
  6. |
  7. | Copyright (C) 1990, 1991 Free Software Foundation, Inc.
  8. | Written by Steve Byrne.
  9. |
  10. | This file is part of GNU Smalltalk.
  11. |
  12. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  13. | under the terms of the GNU General Public License as published by the Free
  14. | Software Foundation; either version 1, or (at your option) any later version.
  15. | 
  16. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  17. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  18. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  19. | details.
  20. | 
  21. | You should have received a copy of the GNU General Public License along with
  22. | GNU Smalltalk; see the file COPYING.  If not, write to the Free Software
  23. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  24. |
  25.  ======================================================================"
  26.  
  27.  
  28. "
  29. |     Change Log
  30. | ============================================================================
  31. | Author       Date       Change
  32. | sbb         13 Sep 91      Added #= and #hash methods.
  33. |
  34. | dougm      19 Apr 90    Initial definitions for Rectangle class (needs Point)
  35. |
  36. "
  37.  
  38. Object subclass: #Rectangle
  39.        instanceVariableNames: 'origin corner'
  40.        classVariableNames: ''
  41.        poolDictionaries: ''
  42.        category: nil !
  43.  
  44. Rectangle comment:
  45. 'Beginning of the Rectangle class for simple display manipulation.
  46.  Rectangles require the Point class to be available.  An extension
  47.  to the Point class is made here that since it requires Rectangles
  48.  to be defined (see converting)' !
  49.  
  50. !Rectangle class methodsFor: 'instance creation'!
  51.  
  52. origin: originPoint corner: cornerPoint
  53.     ^self new origin: originPoint corner: cornerPoint
  54. !
  55.  
  56. origin: originPoint extent: extentPoint
  57.     ^self new origin: originPoint corner: (originPoint + extentPoint)
  58. !
  59.  
  60. left: leftNumber right: rightNumber top: topNumber bottom: bottomNumber
  61.     ^self new origin: (Point x: leftNumber y: topNumber) corner: (Point x: rightNumber y: bottomNumber)
  62. !!
  63.  
  64. !Rectangle methodsFor: 'accessing'!
  65.  
  66. origin: originPoint corner: cornerPoint
  67.     origin _ originPoint.
  68.     corner _ cornerPoint
  69. !
  70.  
  71. origin
  72.     ^origin
  73. !
  74.  
  75. corner
  76.        ^corner
  77. !
  78.  
  79. topLeft
  80.     ^origin
  81. !
  82.  
  83. topCenter
  84.     ^Point x: (origin x + (self width / 2)) y: (origin y)
  85. !
  86.  
  87. topRight
  88.     ^Point x: (corner x) y: (origin y)
  89. !
  90.  
  91. rightCenter
  92.     ^Point x: (corner x) y: (origin y + (self height / 2))
  93. !
  94.  
  95. bottomCenter
  96.     ^Point x: (origin x + (self width / 2)) y: (corner y)
  97. !
  98.  
  99. bottomLeft
  100.     ^Point x: (origin x) y: (corner y)
  101. !
  102.  
  103. bottomRight
  104.     ^corner
  105. !
  106.  
  107. leftCenter
  108.     ^Point x: (origin x) y: (origin y + (self height / 2))
  109. !
  110.  
  111. center
  112.     ^Point x: (origin x + (self width / 2))
  113.        y: (origin y + (self height / 2))
  114. !
  115.  
  116. area
  117.     ^ (self width) * (self height)
  118. !
  119.  
  120. width
  121.     ^(corner x) - (origin x)
  122. !
  123.  
  124. height
  125.     ^(corner y) - (origin y)
  126. !
  127.  
  128. extent
  129.     ^Point x: (self width) y: (self height)
  130. !
  131.  
  132. top
  133.     ^(origin y)
  134. !
  135.  
  136. right
  137.     ^(corner x)
  138. !
  139.  
  140. bottom
  141.     ^(corner y)
  142. !
  143.  
  144. left
  145.     ^(origin x)
  146. !!
  147.  
  148.  
  149. "Not yet implemented: messages to set the locations as mentioned on p 346"
  150.  
  151.  
  152.  
  153. !Rectangle methodsFor: 'testing'!
  154.  
  155. containsPoint: aPoint
  156.     ^(origin < aPoint) & (corner > aPoint)
  157. !
  158.  
  159. contains: aRectangle
  160.     ^(self containsPoint: (aRectangle origin)) &
  161.        (self containsPoint: (aRectangle corner))
  162. !
  163.  
  164. intersects: aRectangle
  165.     ^(self containsPoint: aRectangle topLeft) or:
  166.        [(self containsPoint: aRectangle topRight) or:
  167.            [(self containsPoint: aRectangle bottomLeft) or:
  168.                [(self containsPoint: aRectangle bottomRight)]]]
  169. !
  170.  
  171. = aRectangle
  172.     ^(origin = aRectangle origin)
  173.     and: [ corner = aRectangle corner ]
  174. !
  175.  
  176. hash
  177.     ^(origin hash) * (corner hash)
  178. !!
  179.  
  180. !Rectangle methodsFor: 'rectangle functions'!
  181.  
  182. amountToTranslateWithin: aRectangle
  183.     ^(aRectangle origin)-origin
  184. !
  185.  
  186. "----------------------------------------------------------------
  187. |areasOutside: aRectangle
  188. | most complicated of the Rectangle primitives
  189. | The basic methodology is to first determine that there is an
  190. | intersection by finding the overlapping rectangle.  From the
  191. | overlapping rectangle, first determine if it runs along an edge.
  192. | If it doesn't, extend the rectangle up to the top edge and add
  193. | the new rectangle to the collection and start the rest of the
  194. | process.  If the left edge does not touch the left edge of self,
  195. | extend it to the edge saving the new rectangle.  Then do the
  196. | same to the right edge.  Then check top and bottom edges.  Most
  197. | of the time only 2 or 3 rectangles get formed, occasionally 4.
  198. | It should be possible to never get more than 3 but requires more
  199. | work.
  200.  ----------------------------------------------------------------"
  201.  
  202. areasOutside: aRectangle
  203.     | collect iRect tmp |
  204.     iRect _ self intersect: aRectangle.
  205.     (iRect = nil) ifTrue: [^nil]. "case of no intersection"
  206.                                "the collect collection gathers Rectangles"
  207.     collect _ OrderedCollection new: 4.
  208.                                "is it floating or on the edge?"
  209.     (((iRect top) ~= self top) &
  210.              ((iRect bottom) ~= self bottom) &
  211.                    ((iRect left) ~= self left) & ((iRect right) ~= self right))
  212.        ifTrue: "entirely in the center."
  213.            [tmp _ Rectangle origin: (Point x: iRect left y: self top)
  214.                             corner: iRect bottomRight.
  215.             collect add: tmp.
  216.             iRect _ iRect merge: tmp].
  217.     ((iRect left) ~= self left)
  218.        ifTrue:                 "doesn't touch left edge so make it touch"
  219.            [tmp _ Rectangle origin: (Point x: self left y: iRect top)
  220.                                 corner: iRect bottomLeft.
  221.                 collect add: tmp.
  222.                                "merge new (tmp) with overlap to keep track"
  223.                 iRect _ iRect merge: tmp].
  224.     ((iRect right) ~= self right)
  225.        ifTrue:                 "doesn't touch right edge so extendi it"
  226.            [tmp _ Rectangle origin: iRect topRight
  227.                                 corner: (Point x: self right y: iRect bottom).
  228.                 collect add: tmp.
  229.                 iRect _ iRect merge: tmp].
  230.     (((iRect left) ~= self left) | ((iRect top) ~= self top))
  231.        ifTrue:                 "whole top part can be taken now"
  232.            [tmp _ Rectangle origin: origin corner: iRect topRight.
  233.                 collect add: tmp].
  234.     (((iRect right) ~= self right) | ((iRect bottom) ~= self bottom))
  235.        ifTrue:                 "whole bottom open and can be taken"
  236.            [tmp _ Rectangle origin: iRect bottomLeft corner: corner.
  237.                 collect add: tmp].
  238.     ^collect
  239. !
  240.  
  241. expandBy: delta
  242.     delta _ delta asRectangle.    "not completed"
  243.     (delta isMemberOf: Point) ifTrue:
  244.        [^Rectangle origin: (origin-delta)
  245.                    corner: (corner+delta)].
  246.     (delta isMemberOf: Rectangle) ifTrue:
  247.        [^Rectangle origin: (origin-(delta origin))
  248.                    corner: (corner+(delta corner))].
  249.     (delta isKindOf: Number) ifTrue:
  250.        [^Rectangle left: (origin x)-delta
  251.                    right:(corner x)+delta
  252.                    top:  (origin y)-delta
  253.                    bottom:(corner y)+delta].
  254.     self error: 'Illegal delta value'
  255. !
  256.  
  257. insetBy: delta
  258.     (delta isMemberOf: Point) ifTrue:
  259.        [^Rectangle origin: (origin+delta)
  260.                    corner: (corner-delta)].
  261.     (delta isMemberOf: Rectangle) ifTrue:
  262.        [^Rectangle origin: (origin+(delta origin))
  263.                    corner: (corner-(delta corner))].
  264.     (delta isKindOf: Number) ifTrue:
  265.        [^Rectangle left: (origin x)+delta
  266.                    right:(corner x)-delta
  267.                    top:  (origin y)+delta
  268.                    bottom:(corner y)-delta].
  269.     self error: 'Illegal delta value'
  270. !
  271.  
  272. insetOriginBy: originDeltaPoint corner: cornerDeltaPoint
  273.     ^Rectangle origin: origin + originDeltaPoint
  274.               corner: corner + cornerDeltaPoint
  275. !
  276.  
  277. merge: aRectangle
  278.     | orig corn |
  279.     orig _ Point x: ((origin x) min: (aRectangle origin x))
  280.                 y: ((origin y) min: (aRectangle origin y)).
  281.     corn _ Point x: ((corner x) max: (aRectangle corner x))
  282.                 y: ((corner y) max: (aRectangle corner y)).
  283.     ^Rectangle origin: orig corner: corn
  284. !
  285.  
  286. "--------------------------------------------------------------
  287. | A intersect: B
  288. |   returns the rectangle (if any) created by the overlap of
  289. |   rectangles A and B.  There are 10 possible overlap situations:
  290. |      A inside B
  291. |      B inside A
  292. |      A overlaps B at one of the four corners (1 point inside)
  293. |      A overlaps B on one of the four sides (2 points inside)
  294.  ---------------------------------------------------------------"
  295.  
  296. intersect: aRectangle
  297.     (self contains: aRectangle) ifTrue: [^Rectangle origin: aRectangle origin
  298.                                                    corner: aRectangle corner].
  299.     (aRectangle contains: self)  ifTrue: [^Rectangle origin: origin
  300.                                                     corner: corner].
  301.     (self containsPoint: aRectangle topLeft)
  302.        ifTrue: [ (self containsPoint: aRectangle topRight)
  303.                      ifTrue: [^Rectangle origin: aRectangle origin
  304.                                          corner: (Point x: aRectangle corner x
  305.                                                        y: corner y)]
  306.                      ifFalse: [^Rectangle origin: aRectangle origin
  307.                                           corner: corner]].
  308.     (self containsPoint: aRectangle topRight)
  309.        ifTrue: [^Rectangle origin: (Point x: origin x y: aRectangle origin y)
  310.                            corner: (Point x: aRectangle corner x y: corner y)].
  311.     (self containsPoint: aRectangle bottomLeft)
  312.        ifTrue: [ (self containsPoint: aRectangle bottomRight)
  313.                      ifTrue: [^Rectangle origin: (Point x: aRectangle origin x
  314.                                                         y: origin y)
  315.                                          corner: aRectangle corner]
  316.                      ifFalse: [^Rectangle origin: (Point x: aRectangle origin x
  317.                                                          y: origin y)
  318.                                           corner: aRectangle corner]].
  319.     (self containsPoint: aRectangle bottomRight)
  320.        ifTrue: [^Rectangle origin: origin corner: aRectangle corner]
  321.        ifFalse: [^nil]
  322. !!
  323.  
  324. !Rectangle methodsFor: 'printing'!
  325.  
  326. printOn: aStream
  327.     origin printOn: aStream.
  328.     ' corner: ' printOn: aStream.
  329.     corner printOn: aStream
  330. !
  331.  
  332. storeOn: aStream
  333.     '(Rectangle origin: ' storeOn: aStream.
  334.     origin storeOn: aStream.
  335.     ' corner: ' storeOn: aStream.
  336.     corner storeOn: aStream.
  337.     ')' storeOn: aStream
  338. !!
  339.  
  340. !Rectangle methodsFor: 'truncation and round off'!
  341.  
  342. rounded
  343.     ^Rectangle origin: origin rounded corner: corner rounded
  344. !!
  345.  
  346. !Rectangle methodsFor: 'transforming'!
  347. moveBy: aPoint
  348.     origin _ origin + aPoint.
  349.     corner _ corner + aPoint
  350. !
  351.  
  352. moveTo: aPoint
  353.     | diff |
  354.     diff _ aPoint - origin.
  355.     origin _ aPoint.
  356.     corner _ corner + diff
  357. !
  358.  
  359. scaleBy: scale
  360.     ^Rectangle origin: origin * scale corner: corner * scale
  361. !
  362.  
  363. translateBy: factor
  364.     ^Rectangle origin: origin + factor corner: corner + factor
  365. !!
  366.  
  367. !Point methodsFor: 'converting'!
  368.  
  369. corner: aPoint
  370.     ^Rectangle origin: self corner: aPoint
  371. !
  372.  
  373. extent: aPoint
  374.     ^Rectangle origin: self extent: aPoint
  375. !!
  376.